home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_20_1987_Transactor_Publishing.d64
/
common code.gen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
6KB
|
137 lines
1000 rem save"0:common code.gen",8
1010 rem a locate & display utility to
1020 rem find identical code sequences
1030 rem in machine language programs
1040 :
1050 rem this program will create
1060 rem a load and run module on
1070 rem disk called 'common code'
1080 rem
1090 for j=1 to 910 : read x
1100 ch=ch+x : next
1110 if ch<>98156 then print"checksum error" : end
1120 print "data ok, now creating file": print
1130 restore
1140 open8,8,8,"0:common code,p,w"
1150 print#8,chr$(1)chr$(8);
1160 for j=1 to 910 : read x
1170 print#8,chr$(x); : next
1180 close 8
1190 print "prg file 'common code' created...
1200 [153] "this generator no longer needed.
1210 rem
1220 data 11, 8, 10, 0, 158, 50, 48, 54
1230 data 49, 0, 0, 0, 169, 147, 32, 210
1240 data 255, 162, 0, 142, 138, 11, 142, 140
1250 data 11, 189, 35, 10, 240, 6, 32, 210
1260 data 255, 232, 208, 245, 162, 0, 32, 21
1270 data 11, 32, 165, 10, 224, 5, 176, 13
1280 data 202, 224, 255, 240, 29, 189, 130, 11
1290 data 32, 191, 10, 144, 243, 169, 13, 32
1300 data 210, 255, 32, 26, 11, 162, 0, 189
1310 data 76, 10, 240, 197, 32, 210, 255, 232
1320 data 208, 245, 162, 0, 32, 26, 11, 189
1330 data 130, 11, 32, 179, 10, 10, 10, 10
1340 data 10, 157, 130, 11, 232, 189, 130, 11
1350 data 32, 179, 10, 224, 3, 240, 10, 24
1360 data 109, 130, 11, 141, 130, 11, 232, 208
1370 data 222, 24, 109, 132, 11, 141, 132, 11
1380 data 173, 138, 11, 208, 42, 173, 130, 11
1390 data 133, 252, 173, 132, 11, 133, 251, 169
1400 data 13, 32, 210, 255, 141, 138, 11, 162
1410 data 0, 189, 89, 10, 240, 6, 32, 210
1420 data 255, 232, 208, 245, 162, 0, 32, 21
1430 data 11, 32, 165, 10, 76, 45, 8, 173
1440 data 130, 11, 141, 137, 11, 173, 132, 11
1450 data 141, 136, 11, 169, 13, 32, 210, 255
1460 data 162, 0, 189, 110, 10, 240, 6, 32
1470 data 210, 255, 232, 208, 245, 32, 228, 255
1480 data 240, 251, 201, 80, 240, 6, 201, 83
1490 data 208, 243, 240, 3, 32, 214, 10, 162
1500 data 0, 189, 143, 10, 240, 9, 32, 210
1510 data 255, 232, 208, 245, 76, 62, 8, 32
1520 data 21, 11, 32, 228, 255, 240, 251, 201
1530 data 13, 240, 46, 32, 210, 255, 32, 191
1540 data 10, 32, 179, 10, 10, 10, 10, 10
1550 data 141, 141, 11, 32, 228, 255, 240, 251
1560 data 32, 210, 255, 32, 191, 10, 32, 179
1570 data 10, 24, 109, 141, 11, 201, 2, 144
1580 data 203, 141, 139, 11, 169, 13, 32, 210
1590 data 255, 32, 26, 11, 169, 13, 32, 210
1600 data 255, 173, 139, 11, 56, 233, 2, 141
1610 data 141, 11, 173, 136, 11, 56, 237, 141
1620 data 11, 141, 136, 11, 144, 35, 173, 136
1630 data 11, 56, 237, 139, 11, 141, 134, 11
1640 data 144, 29, 173, 137, 11, 141, 135, 11
1650 data 165, 251, 24, 109, 139, 11, 133, 253
1660 data 165, 252, 105, 0, 133, 254, 76, 120
1670 data 9, 206, 137, 11, 76, 71, 9, 173
1680 data 137, 11, 233, 1, 76, 86, 9, 160
1690 data 0, 177, 251, 209, 253, 240, 65, 24
1700 data 165, 253, 105, 1, 133, 253, 165, 254
1710 data 105, 0, 133, 254, 165, 253, 205, 136
1720 data 11, 208, 228, 165, 254, 205, 137, 11
1730 data 208, 221, 24, 165, 251, 105, 1, 133
1740 data 251, 165, 252, 105, 0, 133, 252, 162
1750 data 0, 142, 140, 11, 165, 251, 205, 134
1760 data 11, 208, 10, 165, 252, 205, 135, 11
1770 data 208, 3, 76, 118, 11, 76, 89, 9
1780 data 162, 0, 160, 0, 232, 236, 139, 11
1790 data 240, 10, 200, 177, 251, 209, 253, 240
1800 data 243, 76, 128, 9, 173, 140, 11, 240
1810 data 37, 32, 237, 10, 169, 32, 32, 210
1820 data 255, 32, 210, 255, 169, 36, 32, 210
1830 data 255, 160, 0, 192, 2, 240, 9, 185
1840 data 253, 0, 153, 141, 11, 200, 208, 243
1850 data 32, 94, 11, 76, 128, 9, 169, 13
1860 data 32, 210, 255, 169, 36, 32, 210, 255
1870 data 160, 0, 192, 2, 240, 9, 185, 251
1880 data 0, 153, 141, 11, 200, 208, 243, 32
1890 data 94, 11, 169, 1, 141, 140, 11, 76
1900 data 218, 9, 32, 32, 32, 18, 67, 79
1910 data 77, 77, 79, 78, 32, 67, 79, 68
1920 data 69, 146, 13, 13, 83, 84, 65, 82
1930 data 84, 32, 65, 68, 68, 82, 69, 83
1940 data 83, 32, 73, 78, 32, 72, 69, 88
1950 data 32, 13, 0, 73, 78, 80, 85, 84
1960 data 32, 69, 82, 82, 79, 82, 13, 0
1970 data 69, 78, 68, 32, 65, 68, 68, 82
1980 data 69, 83, 83, 32, 73, 78, 32, 72
1990 data 69, 88, 32, 13, 0, 79, 85, 84
2000 data 80, 85, 84, 32, 84, 79, 32, 18
2010 data 83, 146, 67, 82, 69, 69, 78, 32
2020 data 79, 82, 32, 18, 80, 146, 82, 73
2030 data 78, 84, 69, 82, 13, 0, 66, 89
2040 data 84, 69, 32, 76, 69, 78, 71, 84
2050 data 72, 32, 73, 78, 32, 72, 69, 88
2060 data 13, 55, 157, 0, 32, 207, 255, 201
2070 data 13, 240, 6, 157, 130, 11, 232, 208
2080 data 243, 96, 201, 58, 176, 4, 56, 233
2090 data 48, 96, 56, 233, 55, 96, 201, 71
2100 data 176, 14, 201, 65, 176, 8, 201, 58
2110 data 176, 6, 201, 48, 144, 2, 24, 96
2120 data 104, 104, 76, 62, 8, 169, 7, 162
2130 data 4, 160, 255, 32, 186, 255, 169, 0
2140 data 32, 189, 255, 32, 192, 255, 162, 7
2150 data 32, 201, 255, 96, 169, 0, 141, 138
2160 data 11, 165, 203, 201, 64, 240, 23, 201
2170 data 60, 208, 19, 173, 138, 11, 208, 19
2180 data 165, 203, 201, 64, 208, 250, 169, 1
2190 data 141, 138, 11, 76, 242, 10, 173, 138
2200 data 11, 208, 222, 96, 169, 0, 133, 204
2210 data 96, 169, 1, 133, 204, 96, 162, 1
2220 data 160, 0, 189, 141, 11, 41, 240, 74
2230 data 74, 74, 74, 201, 10, 176, 26, 24
2240 data 105, 48, 153, 130, 11, 200, 192, 3
2250 data 240, 21, 176, 32, 224, 0, 240, 21
2260 data 189, 141, 11, 41, 15, 202, 76, 44
2270 data 11, 24, 105, 55, 76, 51, 11, 189
2280 data 141, 11, 76, 68, 11, 160, 2, 162
2290 data 0, 76, 35, 11, 96, 32, 31, 11
2300 data 162, 0, 224, 4, 240, 9, 189, 130
2310 data 11, 32, 210, 255, 232, 208, 243, 169
2320 data 13, 32, 210, 255, 96, 32, 204, 255
2330 data 169, 7, 141, 139, 11, 32, 195, 255
2340 data 96, 0, 0, 0, 0, 0, 0, 0
2350 data 0, 0, 7, 0, 0, 0